home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / tc < prev    next >
Encoding:
Text File  |  2002-10-28  |  2.5 KB  |  79 lines
  1. /*
  2.  * ``TC'' - Tabscript Clone For EPIC
  3.  * Copyright 1995 Jeremy Nelson
  4.  * Copyright 1998 The EPIC Project
  5.  * Originally written for Daveman's Toolbox
  6.  * Please use and distribute this script like crazy!
  7.  */
  8.  
  9. #
  10. # (note from jfn)  The original allowed you to save up to 10 nicks to 
  11. # by cycled through by pressing <tab> or <esc>.  I totaly rewrote the file
  12. # and added the ability to set the number of nicks to save, and also made 
  13. # it a full tabkey clone.  This file is a lot easier to figure out, too.
  14. # 
  15. # What it does:
  16. #     save an arbitrary number of nicks in a list (settable by you)
  17. #     cycle through the list by pressing <tab>
  18. #     cycle backwards through the list by pressing <^R>
  19. #     remove last <TAB>bed nick from the list (^X^X)
  20. #
  21. # Because this script uses a queue instead of a list and index counter, 
  22. # you may find this script has a different set of idiosyncrasies then 
  23. # the original tabscript.
  24. #
  25. package tc
  26. bind ^I parse_command ^tc.get_nick
  27. bind ^R parse_command ^tc.get_nick_backward
  28. bind ^X^X parse_command {
  29.     xecho -b Nickname $word($tc.position $tc.msglist) removed
  30.     @ tc.msglist = notw($tc.position $tc.msglist)
  31.     @ tc.num_nicks = #tc.msglist
  32.     @ tc.position--
  33.     tc.get_nick
  34. }
  35.  
  36. # maximum number of nicks you want to keep track of...
  37. @ tc.max_nicks = 6
  38.  
  39. #
  40. # add a word to a list -- makes sure the list doesnt get longer then
  41. # the number allowed in max_nicks.
  42. #
  43. alias tc.add_to_list {
  44.     # This was suggested by David Luyer (david_luyver@pacfici.net.au)
  45.     (tc.msglist = [$0 $leftw(${tc.max_nicks-1} $remw($0 $tc.msglist))])
  46.     (tc.num_nicks = #tc.msglist)
  47.     (tc.position = 0)
  48. }
  49. alias tc.get_nick {
  50.     parsekey erase_line
  51.     xtype -l /msg $word($tc.position $tc.msglist) 
  52.     ((++tc.position >= tc.num_nicks) && (tc.position -= tc.num_nicks))
  53. }
  54. alias tc.get_nick_backward {
  55.     parsekey erase_line
  56.     xtype -l /msg $word($tc.position $tc.msglist) 
  57.     ((--tc.position < 0) && (tc.position += tc.num_nicks))
  58. }
  59.  
  60. alias addnick for x in ($*) {tc.add_to_list $x}
  61. alias nicklist xecho -b Nickname list: $tc.msglist
  62.  
  63. on #-msg -12782 * tc.add_to_list $0
  64. on #-send_msg -12782 * tc.add_to_list $0 
  65.  
  66. on #-dcc_chat -12782 * tc.add_to_list =$0
  67. on #-send_dcc_chat -12782 * tc.add_to_list =$0
  68.  
  69. /*
  70.  * This alias doesnt work if you try to do something like:
  71.  * /m x ....
  72.  * because $x expands to your userhost, and that gets confusing.
  73.  *
  74.  * No, the lack of brackets around $0 is not a bug, thats how it works.
  75.  * Try it.  If $0 is 'bc' and $bc is "bigcheese" then 
  76.  * if ($0) -> if (bc) -> if ([bigcheese])
  77.  */
  78. ALIAS M if \($0\) {msg $($0) $1-} {msg $0 $1-}
  79.